Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/GW AdaEd 1.4.2/GWAdaDemos/GWU Demos/fourpieces.ada

Text File | 1993-10-09 | 832 b | 31 lines | [TEXT/GADA]

WITH Text_IO;
WITH Screen;
PROCEDURE FourPieces IS

-- this program divides the screen into four pieces by drawing horizontal
-- and vertical lines. The Screen package is used to position the cursor.

BEGIN

  Screen.ClearScreen;

  FOR Count IN Screen.Height LOOP
    Screen.MoveCursor (To => (Row => Count, Column => 41));
    Text_IO.Put (Item => '|');
    Screen.MoveCursor (To =>
      (Row => (Screen.ScreenHeight - Count) + 1, Column => 42));
    Text_IO.Put (Item => '|');
  END LOOP;

  FOR Count IN Screen.Width LOOP
    Screen.MoveCursor (To => (Row => 12, Column => Count));
    Text_IO.Put (Item => '-');
    Screen.MoveCursor (To =>
      (Row => 13, Column => (Screen.ScreenWidth - Count) + 1));
    Text_IO.Put (Item => '-');
  END LOOP;

  Screen.MoveCursor (To => (Row => 24, Column => 1));

END FourPieces;